home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CADAR / Permutate / reorder-by-n < prev    next >
Lisp/Scheme  |  1998-10-22  |  228b  |  13 lines
  1. reorder-by-n n material
  2.  
  3. repeats the material n times and then picks every n note.
  4.  
  5. (setq material (list-a-scale 'a 7))
  6. ->(A B C D E F G)
  7.  
  8. (reorder-by-n 5 material)
  9. ->(A F D B G E C)
  10.  
  11. (reorder-by-n 4 material)
  12. ->(A E B F C G D)
  13.